home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / aed244a.zip / R-PCEDIT.MRG < prev    next >
Text File  |  1991-02-16  |  2KB  |  56 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce R-PCEDIT.BAS
  3. * RBBS-PC.BAS:  Date 8-26-1990  Size 165474 bytes
  4. * ------------[ Created 09-20-1990 15:16:28 ]------------
  5. * REPLACING old line(s) by new
  6. * ------[ first line different ]------
  7. 2100 GOSUB 2101
  8.      IF NOT ZYes THEN _
  9.         GOTO 2120
  10.      GOTO 2110
  11. * INSERTING new line(s)
  12. 2101 ZYes = ZFalse
  13.      IF (ZUserGraphicDefault$ = "C" OR NOT ZHiLiteOff) AND NOT ZGetExtDesc THEN
  14.         ZOutTxt$ = "Use the ANSI Screen Editor (Y,[N])"
  15.         GOSUB 12930
  16.      END IF
  17.      RETURN
  18. 2110 CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)
  19.      I = ZSubParm
  20.      CALL SkipLine (1)
  21.      IF I = -2 THEN      ' Sleep Disconnect
  22.         GOTO 10590
  23.      ELSEIF I = -1 THEN  ' Lost Carrier
  24.         GOTO 10595
  25.      ELSEIF I = 1 THEN   ' Save Message
  26.         GOTO 3400
  27.      ELSEIF I = 2 THEN   ' Abort Message
  28.         GOTO 2430
  29.      END IF
  30. 2120 ZOutTxt$ = "Enter Your " + _
  31.           ZMsgHeader$ + _
  32.           STR$(ZMaxMsgLines) + _
  33.           " Lines Max" + _
  34.           ZPressEnterExpert$
  35.      GOSUB 12975
  36.      GOSUB 3200
  37. * REPLACING old line(s) by new
  38. 4626   ZWasZ$ = "L"
  39.        WasL = 1
  40. * ------[ first line different ]------
  41.        GOSUB 2101
  42.        IF ZYes THEN
  43.           GOSUB 2110
  44.        ELSE
  45.           IF ZLinesInMsg >= ZMaxMsgLines THEN _
  46.              CALL QuickTPut ("Message Must Be Shorter Than" + _
  47.                          STR$(ZMaxMsgLines) + " Lines...",1)
  48.           IF NOT MsgFwd THEN _
  49.              ZOutTxt$ = "Use C to Continue Reply.  Please Delete Unneeded Lines." : _
  50.              GOSUB 12975
  51.           GOSUB 3200
  52.           GOSUB 3020
  53.           GOSUB 2300
  54.        END IF
  55.        GOTO 4628
  56.